1 IFTTHEN27
2 IFPEEK(12*64^2)<>76THENGOSUB48:POKE3499,0:POKE3500,0:POKE45,173:POKE46,13
3 POKE56,55:POKE53281,0:POKE53280,11:CLR:PRINT"[147][153]"
4 PRINT"[147][149]","[157][157][164][164][164][164][164][164][164][164][164][164][164][152][198][198][198][198][198][198][198][198][198][198][198][198][198][149]"
5 PRINT,"[157][157][165][154]BOZ/WAYNE[149][167][158][182]JJSLIDESHOW[146][181]"
6 PRINT,"[149][157][157][163][163][163][163][163][163][163][163][163][163][163][152][196][196][196][196][196][196][196][196][196][196][196][196][196][151]"
7 PRINT"     BUTTERFIELD/ONDA/ZAMARA/SCHMIDT[152]"
8 PRINT"            LOADING DIRECTORY [153]"
9 A$="ABCDEFGHIJKLMNOPQABCDEFGHIJKLMNOPQABCDEFGHIJKLMNOPQABCDEFGHIJKLMNOPQABCDE"
10 A$=A$+A$+A$+"ABCDEFGHIJKLMNOPQABCDEFGHIJKLMNOPQAB"
11 DIMNM$(40):ML=12*64^2
12 F=0:T=18:S=1:OPEN15,8,15:OPEN1,8,2,"#"
13 PRINT#15,"U1:"2;0;T;S
14 SYS 896
15 T=ASC(LEFT$(A$,1)):S=ASC(MID$(A$,2,1))
16 FORI=1TO8:P=16
17 TY=((ASC(MID$(A$,I*32-32+3,1))AND131)-128)AND3:IFTY<>2THENGOTO22
18 IFLEFT$((MID$(A$,I*32-32+6,P)),2)<>"JJ"THENGOTO22
19 IFRIGHT$((MID$(A$,I*32-32+6,P)),1)=CHR$(160)THENP=P-1:GOTO19
20 NM$(F)=(MID$(A$,I*32-32+6,P))
21 F=F+1
22 NEXTI:IFT=18THEN13
23 F=F-1:CLOSE1:CLOSE15:Z=FRE(0)
24 :  REM ============
25 PRINT"     USING FASTLOAD OR SIMILAR[151][[154]Y[149]-[154]N[151]][153]?"
26 WAIT198,1:GETP$:FL=(ABS(P$="Y"))*2000
27 FORI=0TOF
28 OPEN15,8,15
29 KL=LEN(NM$(I)):POKE583,KL:FORK=1TOKL:POKE(584+K),ASC(MID$(NM$(I),K,255))
30 NEXT
31 IFI=0THENSYSML+1136:SYSML+429:GOTO33
32 SYSML+51
33 GOSUB41
34 FORJ=1TOFL:NEXT:NEXT:WAIT198,1:GETP$:SYSML+42
35 PRINT"[147][153]"," DISPLAY SAME [146] (Y/N)?"
36 WAIT198,1:GETP$:IFP$="Y"THENGOTO27
37 PRINT""," ANOTHER DISK [146] (Y/N)?[152]":PRINT"    INSERT NEW ";
38 PRINT"DISK BEFORE ANSWERING[153]":WAIT198,1:GETP$:IFP$="Y"THENGOTO12
39 END
40 : REM ============
41 INPUT#15,E,E$,E1,E2
42 IFE=0THENCLOSE15:RETURN
43 PRINT" DISK ERROR ":PRINT" "E$" ":PRINT" PRESS A KEY[145][145][145]"
44 CLOSE15:SYSML+42:WAIT198,1:GETP$:RETURN
45 :
46 END
47 : REM ============
48 FORI=896TO933:READJ:POKEI,J:NEXTI
49 DATA 160,2,177,45,153,137,0,200,192,6,208,246,162,1,32,198,255,32,228,255
50 DATA 164,142,145,140,200,240,8,234,234,132,142,196,139,208,238,76,204,255
51 FOR I=319 TO 384:READJ:POKEI,J:NEXT:POKE251,0:POKE252,192
52 FOR I=0 TO 36: READ P$
53 SYS 319,P$: NEXT: RETURN
54 :
55 DATA  32, 253, 174,  32, 158, 173
56 DATA  32, 163, 182, 133,  36, 162
57 DATA   0, 160, 255,  32, 102,   1
58 DATA  10,  10,  10,  10, 133,  37
59 DATA  32, 102,   1,   5,  37, 129
60 DATA 251, 230, 251, 208, 236, 230
61 DATA 252, 208, 232, 200, 196,  36
62 DATA 240,  16, 177,  34, 201,  81
63 DATA 176,  13, 201,  65, 144,   9
64 DATA 233,   1,  41,  15,  16,   2
65 DATA 104, 104,  96,  76,   8, 175
66 :
67 DATAEMDKMAEMOLMAEMKHMDEMPJMDEMAJMBEMCDMBEMDDMEEMFMMBEMPMMBEMNAMDEMBGMBEMIC
68 DATAMBEMPDMBEMKNMBEMMDMBEMEEMDEMGLMDEMGNMEAAAAAAAACAMDMBKJJDCANCPPKJABCAMD
69 DATAPPKJCEINDGMAKJDAINDHMAKJABKCAIKAAACALKPPKJABKCNMKAMACALNPPCAMAPPKCABCA
70 DATAMGPPCAMPPPCAMPPPCALHPPNAENCAMPPPCAMPPPMJAAPAEDCAMMPPCAOEPPMJCANAAHCAOE
71 DATAPPMJCANAPJKCABCAMGPPCAMPPPKICAMPPPEIJIKKGICAMNLNKJCACANCPPCAMPPPMJAANA
72 DATAAIKJANCANCPPEMHGMACANCPPCAOBPPPAADEMKJMAKJABCAMDPPCAMMPPKJMMIFLCKCNNKA
73 DATAMACANIMBCAOEPPPAPLGACEANAMFAFCEFFDFDCAEBCAELEFFJAACAKNMBKJGAIFPMKCHPKJ
74 DATAAAIFPLKILBPLEJPPJBPLMINAPHOGPMOEPMLAPBGACAKNMBOOCANAKNCANAINPPFPGACAKN
75 DATAMBMOCANAKNCANAINPPFPGAKCPKKJABMKJNAAFMJNPKFMJNPEFNJNOOFONAPBCAKNMBKJAB
76 DATAKCAIKAAACALKPPKNEHACKCEJKAACCALNPPKJAAKCAAKAGACANFPPKNPPFPINCANAGACAKN
77 DATAMBKJABKCAIKAAACALKPPKNEHACKCEJKAACCALNPPKJAAKCAAKAFMCANFPPKNPPFPINCANA
78 DATAGACAKNMBKJAAIFPLKJFMIFPMKJAIKCAIKAAACALKPPKNEHACKCEJKAACCALNPPKJPLKCEB
79 DATAKAHPCANIPPCAMDMBGAKJDLINBBNAKJHIINBINAKJJGINAANNKNPPFPINCANAGAKJBLINBB
80 DATANAKJBFINBINAKJJHINAANNKJALINCANAGAIGPLIEPMKAAALBPLPAAHCANCPPMIEMNOMBGA
81 DATAAAFMABAAAAAAAAAAAAKJABINOPMBKAABNAAHKJAAINOPMBKAACCAKNMBKFABINPAMBKJAI
82 DATAKKCALKPPKNEHACKCEJKAACCALNPPCAMAPPKCAIKAAAKNOPMBPABFCAMJPPKNOKMBCANCPP
83 DATAKNOLMBCANCPPCAGPMCEMFBMCCAMGPPCAOEPPIFPLCAOEPPIFPMCALHPPNAADCABIMDCAMM
84 DATAPPKJAICAMDPPKNPPFPINCANAKNOPMBNAAECAFBMDGACAMDMBCAFBMDGAKNOKMBIFPLBIGJ
85 DATAEAINPBMBKNOLMBIFPMGJCDINPCMBCAAGMDINOOMBKAABCAKBMCKFPMMNPCMBNAPGKFPLMN
86 DATAPBMBNAOPCAPEMCGACAAGMDINONMBMNOOMBNABDOOOMMBNAALMOOMMBCAPEMCKJABINOMMB
87 DATAEMOHMCKNOMMBMJAELABJKKKNOOMBMJPOPABBKNOOMBCANCPPMKNAPHKJABINOMMBEMOHMC
88 DATACAPEMCKJABINOMMBKNONMBINOOMBOGPLNAACOGPMGAKJPOCANCPPKNOOMBCANCPPKNOMMB
89 DATACANCPPGAHIKFABCJPMIFABLBPLEIKNPAMBIFABFIGIGACAOEPPMJPOPAALJBPLOGPLNAAC
90 DATAOGPMEMDOMDCAOEPPEICAOEPPKKGIJBPLOGPLNAACOGPMMKNAPFCALHPPPANFGAKNBBNAMJ
91 DATABLNAADEMKNMBEMMDMBKJAAINONMBINOOMBINOPMBINPAMBINPBMBINPCMBKJABINOMMBGA
92 DATACAKNMBHIKFABCJPMIFABKJAAIFPLIFPNKJFMIFPMKJIAIFPOKAAALBPLKKLBPNJBPLIKJB
93 DATAPNMINAPDOGPMOGPOKFPMMJIANAOHKFABAJADIFABFICAKNMBGACAKNMBKJAAKIIFPLKJFM
94 DATAIFPMLBPLBIGJBAJBPLKFPLMJOHPAAJOGPLNAOPOGPMNAOLGAKJFPMFPMNAPBGACAKNMBKJ
95 DATAAAKIIFPLKJFMIFPMLBPLDIOJBAJBPLKFPLMJOHPAAJOGPLNAOPOGPMNAOLGAKJFPMFPMNA
96 DATAPBGACAKNMBKJAAKIIFPLKJFMIFPMLBPLINDGMAKKOIIKCJAPINDHMABIKNDGMACJPAGNDH
97 DATAMAJBPLKFPLMJOHPAAJOGPLNANOOGPMNANKGAKJFPMFPMNAPBGACAKNMBKJAAKIIFPLKJFM
98 DATAIFPMLBPLINDGMAKKMKIKCJAPINDHMABIKNDGMACJPAGNDHMAJBPLKFPLMJOHPAAJOGPLNA
99 DATANOOGPMNANKGAKJFPMFPMNAPBGACAKNMBKJABKCAIKAAACALKPPKNEHACKCEJKAACCALNPP
100 DATAKJAAKCAAKADICANFPPCALHPPMJEANAEAIODIMAIMDJMAKJAAIFPLIFPNKJDIIFPMKJFMIF
101 DATAPOKAAACALDMEKNPPFPINCANAGAKFPLMNDIMANAAHKFPMMNDJMAPABCCAOLMEMJPOPAAMJB
102 DATAPNOGPNNAOFOGPOEMLDMEGACAOLMEEICAOLMEKKGIJBPNOGPNNAACOGPOMKNAPFEMLDMELB
103 DATAPLOGPLNAOCOGPMGA